home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #056 (19xx)(APS Electronic).zip / Bavarian #056 (19xx)(APS Electronic).adf / klein.inp < prev    next >
Text File  |  1987-08-19  |  1KB  |  55 lines
  1. macros:
  2.     import "stdinp"
  3.     macro bottle
  4.     object of glass
  5.         point    1    0    0
  6.         point    .87    .5    0
  7.         point    .5    .87    0
  8.         point    0    1    0
  9.         point    -.5    .87    0
  10.         point    -.87    .5    0
  11.         point    -1    0    0
  12.         point    -.87    -.5    0
  13.         point    -.5    -.87    0
  14.         point    0    -1    0
  15.         point    .5    -.87    0
  16.         point    .87    -.5    0
  17.         point    1    0    0
  18.         route 
  19.             point   -5    2.5    0
  20.             point   5    2.5    0
  21.             point   7    2    0   scale .8
  22.             point   9    1    0   scale .7
  23.             point   9    -1    0   scale .65
  24.             point   7    -2.5    0   scale .6
  25.             point   4    -2.5    0   scale .55
  26.             point   0     2.5    0   scale .5
  27.             point   -4.6     2.5    0   scale .45
  28.             point   -5    2.5    0
  29.         close 0 0
  30.     done bottle
  31. parameters:
  32.     resolution of scale 1 mode 2
  33.     StdView
  34. textures:
  35.     StdTextures
  36. lights:
  37.     StdLights
  38. objects:
  39.     StdAtts
  40.     bottle
  41.     scale 15 15 15
  42.     roty -110
  43.     rotx  20
  44.     trans 0 -30 0
  45.     quad brick
  46.     scale 1600 800 0
  47.     rotx 90
  48.     trans -800 -200 0
  49.     quad fire
  50.     scale 1600 1600 0
  51.     trans -800 -200 -800
  52.  
  53. message "done"
  54.  
  55.